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ABSTRACT 

The  Depot  Maintenance  Planning  and  Progranming  System 
(DMPPS)  is  a large  computer  system  developed  over  a period 
of  two  and  a half  years  by  the  David  W.  Taylor  Naval  Ship 
Research  and  Development  Center  (DTNSRDC),  Code  186  for 
the  Naval  Sea  Systems  Command  (NAVSEA) , Code  070T.  The 
System  was  developed  to  project  shipyard  resource  require- 
ments (i.e.,  labor  mandays  and  costs  as  well  as  material 
costs)  by  shipyard  production  shop  and  by  ship  work  break- 
down structure  (SWBS).  It  enables  management  to  assess 
the  impact  on  the  shipyards  and  ship  systems  of 

• Changes  in  depot-level  maintenance/alter- 
ations policy 

• Major  changes  in  force  levels  and/or  com- 
position 

• Budgetary  constraints 

DMPre  consists  of  a network  of  interdependent  computer 
programs  written  in  FORTRAN  IV.  It  was  developed  at  DTOSRDC 
using  the  CDC  6000  series  computers  and  was  subsequently 
converted  for  the  IBM  360/370  series  computers.  It  is  now 
installed  and  operational  at  the  NAVSEA  070  computer  terminal 
(which  accesses  an  IBM  370/168  computer).  This  document 
presents  the  IBM  360/370  version  of  the  DMPPS  program  modules. 
The  modules  have  been  grouped  into  six  subsystems.  Each 
of  Volumes  2-7  of  this  document  describes,  in  detail,  one  of 
these  subsystems.  An  executive  sunmary  of  the  entire  DMPPS  is 
presented  in  Volume  1.  The  content  of  the  seven  volumes  is 
indicated  as  follows: 

Volume  1 - Executive  Summary 
Volume  2 - Preprocessor  Su±)system 
Volume  3 - Alterations  Suibsystem 
Volume  4 - Repair  Subsystem 
Volume  5 - Synthesizer  Subsystem 
Volume  6 - Report  Generator  Subsystem 
Volume  7 - Fe^back  Subsystem 


5.  SYNTHESIZER  SUBSYSTEM 


The  DMPPS  (Depot  Maintenance  Programming  and  Planning  System)  con- 
sists of  several  separate  modules  which  interface  through  various  files. 
The  Synthesizer  module,  using  the  program  XPLODE,  ccjmbines  the  aK>ropri- 
ate  repair  and  alterations  matrices  with  estimates  of  direct  labor  mandays 
required  for  each  availability  from  the  Depot  Maintenance  Assignment  File 
(DMAF)  and  produces  a Shop  File,  a SWBS  File,  and  a SWBS-Shop  Matrix  File. 
These  files,  which  show  the  distribution  of  the  projected  workloads  among 
the  9 single-digit  SWBS  categories  and  the  20  shops  (19  production  shop 
categories  plus^other  direct^,  are  used  by  the  Report  Generator  Subsystem 
(Volume  6)  to  produce  summary  reports. 

The  DMAF  used  as  input  to  the  progr^  XPL(X)E  has  been  separated  into 
four  distinct  files  according  to  sector,  and  the  records  on  the  files  have 
been  sorted  by  shipyard.  Sector  assignments  reflect  the  shipyard  owner- 
ship and  coastal  location  (e.g..  Navy  east,  private  west).  Each  file  has  a 
header  record  giving  the  order  of  the  shipyards  on  the  file.  All  avail- 
abilities on  DMAF  have  been  assigned  an  alterations  matrix  number  and  a 
repair  matrix  number.  The  matrices  themselves  are  stored  on  a random 
access  file  (the  Repair  and  Alterations  Matrix  File)  with  the  matrix  number 
as  the  access  key. 

Other  modules  of  DMPPS  develop  the  Matrix  File  and  categorize  the 
matrices  with  respect  to  the  nature  of  the  work  they  represent.  A ship 
availability  matrix  shows,  by  SWBS  and  by  shop,  the  fraction  of  the  total 
direct  labor  mandays  expended  in  each  category.  Thus,  as  each  availability 
on  DMAF  is  read,  the  program  XPLODE  multiplies  the  adjusted  mandays  by  the 
appropriate  repair  and  alterations  matrix  values  and  writes  a record  of 
data  for  both  the  SWBS  File  and  the  Shop  File. 

Itje  SWBS  File  and  the  Shop  Pile  are  created  only  once  as  all  informa- 
tion is  available  for  producing  any  type  of  report.  Itie  SWBS-Shop  Matrix 
File  is  prepared  for  selected  shipyards.  If  a yard  has  been  selected  to  be 
"exploded,"  this  file  is  processed  and  will  produce  21  records  of  data  for 
each  availability.  Since  the  creation  of  a SWBS-Shop  Matrix  File  may  result 
in  massive  output,  it  is  necessary  to  specify  the  yards  to  be  processed. 


BUNMRTT  rUMED 


The  reports  can  then  be  generated  by  the  program  REPMAT  (Volume  6 — 
Report  Generator  Subsystem)  and  the  process  repeated  for  additional  yards. 

Input  cards  control  which  files  are  to  be  created  and  the  yards  that 
are  to  be  processed  or  "exploded."  If  the  program  XPLCOE  is  rerun  to 
create  additional  Sves-Shop  Matrix  Files,  that  portion  of  the  program  used 
to  create  the  bcisic  files  is  emitted. 

■rtie  Report  Generator  Subsystem  collects  related  bits  of  information 
from  files  created  by  the  Synthesizer  Subsystem  and  produces  summary 
reports. 
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5.1  PIOGRAM  XPLODE 
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5.1.1  DESCntIPTION  i 

i 

i 

The  purpose  of  the  program  XPLODE  is  to  create  files  that  can  be  I 

used  to  produce  summary  reports.  XPLODE  ccxrbines  the  Depot  Maintenance  j 

Assignment  Files,  Version  4 (DMAF-4),  and  the  Repair  and  Alterations 
Matrix  File,  and  produces  a SVJBS  (Ship  Work  Breakdown  Structure)  File,  a | 

Shop  File,  and  a SWBS-Shop  Matrix  File.  These  files  contain  a total 
direct  manday  package  for  repairs  and  for  alterations  for  each  DMAF 
record,  and  are  used  as  input  to  the  programs  PREWBS,  REPSHOP,  and  REPMAT, 
respectively,  as  shown  in  Figure  5.1-1. 

DMAF-4  is  a version  of  the  Depot  Maintenance  Assignment  File  which 
has  been  separated  into  four  sectors.  Sector  assignments  reflect  the 
shipyard  ownership  and  coastal  location  (Navy  east,  private  west,  etc.). 

There  are  four  DMAF-4  Files,  each  having  a header  record  designating  the 
sector  and  the  yards  it  contains,  followed  by  a record  of  all  "9's".  • 

Figure  5.1-2  gives  an  example  of  the  format. 

Each  ship  availability  on  DMAF  has  been  assigned  a repair  and  cin 
alterations  matrix  number.  The  Repair  and  Alterations  Matrix  File  is  a 
randan  access  file  and  each  matrix  is  stored  as  a single  record  with 
the  matrix  number  as  the  access  key.  The  first  1500  records  are  reserved 
for  alterations  matrices  and  the  next  1500  are  reserved  for  repair  matrices. 

Subroutine  RDMTRX  is  called  to  "read"  from  the  Matrix  File,  the 
values  for  the  repair  matrix  and  the  alterations  matrix  for  a given  ship 
availability.  These  matrices  are  stored  in  arrays  dimensioned  10  by  21 
where  the  first  subscript  corresponds  to  a single-digit  SWBS  element  and 
the  second  subscript  refers  to  the  shipyard  production  shop  category  (the 

19  shop  categories  and  all  "other  direct"  work  will  be  referred  to  as  the 

20  shops  throughout  this  report).  The  matrix  entries  represent  the 
fraction  of  total  direct  labor  for  the  particular  SWBS  element  and  shop 
indicated  by  the  subscript.  With  these  matrix  entries,  the  program  XPLM)E 
is  able  to  spread  the  mandays  specified  on  DMAP-4  across  the  20  shops  and 

9 SWBS  categories.  ^ 
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Figure  5.1-1  - System  Diagram 


Figure  5.1-2  - Sanple  DMAP-4  Format 


The  production  shop  productive  (PSP)  mandays  from  DMAF  may  be  sepa- 
rated into  total  direct  repair  mandays  (DAYSR)  and  total  direct  altera- 
tions mandays  (DAYSA)  by  using  the  percentage  factor  projected  for  altera- 
tions (PCT)  and  the  other  direct  factor  from  the  appropriate  matrix.  The 
other  direct  factor  is  the  fraction  of  total  direct  mandays  attributed  to 
other  direct  work  (i.e.,  non-PSP  labor  requirenent) . 

With  the  following  equations,  total  direct  repair  mandays  (DAYSR)  and 
alterations  mandays  (DAYSA)  may  be  computed: 

DAYSR  = IDAYS  * (1.  - PCT)  / (1.  - MATREP(10,20) ) (1) 
DAYSA  = ICAYS  * PCT  / (1.  - r>lATALT(10, 20 ) ) (2) 

Arrays  of  mandays  for  SWBS  (WVALR  and  WVALA)  and  for  shops  (SVALR 
and  SVALA)  may  be  calculated  by  multiplying  the  total  direct  repair 
mandays  (DAYSR)  and  total  direct  alterations  mandays  (DAYSA)  by  each  of 
the  repair  or  alterations  matrix  elements. 


WVALR(I)  = DAYSR  * MATR£P(I,21) 
WVALA(I)  = DAYSA  * MATALT(I,21) 


(for  I = 1,9)  (3) 

(for  I = 1,9)  (4) 


where 


WVALR  represents  the  total  direct  repair  mandays  for  SWBS 
WVALA  represents  the  total  direct  alterations  mandays  for  SWBS 

MATREP  is  the  10  by  21  repair  matrix  and  MATALT  is  the  10  by  21 
alterations  matrix.  When  the  first  subscript  is  10,  that  element  con- 
tains the  total  of  the  rows.  When  the  second  subscript  is  21,  that 
element  contains  the  total  of  the  columns. 

For  each  DMAF-4  record,  one  record  is  produced  for  the  SWBS  File 
containing  ship  type,  hull  number,  type  work,  yard,  and  sector  as  well  as 
the  9 repair  manday  values  and  the  9 alterations  manday  values. 

If  a Shop  File  is  to  be  created,  the  following  equations  are  used: 


SVALP(I)  = DAYSR  * MATREP(10,I) 
SVALA(I)  = DAYSA  * MATALT(10,I) 


(for  I = 1,20)  (5) 

(for  I = 1,20)  (6) 


»^ere 


SWjR  represents  the  total  direct  repair  mandays  for  shops  (7) 

SVAIA  represents  the  total  direct  alterations  mandays  (8) 

for  shops 

For  each  record  of  DMAF-4,  a record  similar  to  the  SWBS  record  is  pro- 
duced. It  contains  the  20  repair  manday  values  and  the  20  alterations 
manday  values  projected  for  shops.  No  Shop  File  is  created  for  private 
yards. 

In  addition  to  the  Shop  File  and  SWBS  File,  a SWBS-Shop  Matrix 
File  may  be  created  for  designated  shipyards.  Ihis  file  consists  of  one 
record  for  each  shop  within  the  shipyard  showing  the  mandays  which  that 
shop  will  expend  in  each  of  nine  SWBS  categories.  For  each  DMAF  record, 
21  records  are  produced  - a record  of  zeros  followed  by  20  shop  records. 
A format  for  the  SWBS-Shop  Matrix  File  is  shown  in  Figure  5.1-3.  Since 
this  file  could  result  in  a tremendous  amount  of  output  data,  only  two  or 
three  yards  should  be  selected  for  "exploding."  The  necessary  report  is 
generated  with  the  program  REPMAT.  The  total  direct  mandays  for  repairs 
(XVALR)  are  computed  using  the  following  equation; 

XVALR(I,II)  = DAYSR  * MATREP(I,II)  (for  I = 1,9  (9) 

and  II  = 1,20) 

The  total  direct  mandays  for  alterations  (XVALA)  are  computed  using  the 
following  equation: 

XVAIA(I,II)  = DAYSA  * MATALT(I,II)  (for  I = 1,9  (10) 

and  II  = 1,20) 

The  SWBS-Shop  Matrix  File  may  be  created  for  alterations,  for  repairs, 
or  for  a total  of  alterations  and  repairs. 

The  first  input  card  contains  identifying  information  and  the  optitsi 
of  creating  the  SWBS  File  and  the  Shop  File.  The  next  cards  select 
the  yards  to  be  "exploded"  and  indicate  whether  the  manday  package  is  to 
be  projected  for  repairs  or  alterations.  A card  containing  the  word 
"LAST"  in  the  yard  name  field  terminates  the  input  card  deck. 
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If  none  of  the  required  yards  appear  on  a sector  header  record 
of  DMAF,  the  "explode"  portion  of  the  program  is  bypassed.  When  an 
' end-of-file  mark  is  encountered  on  EMAF,  the  unit  number  is  incremented 

and  transfer  is  made  to  that  portion  of  the  program  that  reads  the  next 
sector  he2Kier  record.  The  order  of  processing  of  the  sectors  is  NE,  tW, 
PE,  and  FW,  but  yards  selected  for  explosion  may  be  input  in  any  order. 

^ ’,gure  5.1-4  presents  a hierarchical  diagram  of  program  XPLODE. 

Main  Program 

The  main  program  of  XPLODE  is  responsible  for  combining  the  Depot 
Maintenance  Assignment  File,  Version  4 (DMAF-4),  and  the  Repair  and 
Alterations  Matrix  File  to  produce  a SWBS  File,  a Shcp  File  and  a SWBS- 
Shop  Matrix  File.  As  input  cards  are  read,  flags  are  set  that  note 
which  files  are  to  be  produced  and  whether  or  not  any  optional  debug 
printout  is  desired.  For  a SWBS  File  or  a Shop  File,  the  first  20  records 
may  be  printed.  The  SWBS-Shop  Matrix  File  produces  hardcopy  output  for 
only  five  availabilities,  as  one  availability  will  "explode"  into  21 
records. 

Subroutine  lERROR 

The  subroutine  TERROR  is  called  when  there  are  inconsistencies  in 
the  data.  An  error  message  is  written  and  steps  are  taken  to  continue 
calculations.  If  the  error  is  due  to  a missing  or  non-existent  matrix, 
the  values  of  the  matrix  are  set  to  zero  and  processing  proceeds.  Errors 
resulting  from  omission  of  the  opticxis  for  "explosion"  of  a yard  result 
in  calculation  of  the  total  of  repairs  and  alterations. 

Subroutine  RDMTRX 

The  subroutine  RDMTRX  reads  the  random  access  file  containing  repair 
and  alterations  matrices.  The  argument  list  transfers  the  repair  matrix 
number  and  alterations  matrix  number  from  the  main  program  and  returns  the 
• corresponding  matrix  values.  Tests  are  made  to  insure  the  alterations 

matrix  numbers  are  between  0 and  1500  and  the  repair  matrix  numbers 
. between  1500  and  3000.  If  a ship  availability  has  not  been  assigned  a 

matrix  number,  values  of  zero  are  used  with  the  appropriate  error  message. 
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XPLODE 


5.1.2  RUN  SET-UP 


The  following  set-up  is  used  to  run  the  XPLODE  program  on  the 
IBM  360/370  computer: 


//HVSmO  JM  (XIIX«lC»«,XXX«X»,U$CM,Cl*SS«l,TINea|,{(),MSCLCVCL>l 
//JOflLII  m 0SN«NVSI1.0EXOT.Ln.0ISMSNR 
//  rxcc  PCHOXXIOOC 
//io.rmrttt  oo  • 


XPLOOC  cird  Inputs  (unit  S) 


//co.rrttrioi  oc 

//CO.FTOXrOfl  DO 
//GO.FTl^FDtt  00 
//  UNtTaSTOMtCC 
//CO.FTlIFOOl  00 
/XCO.FTtlFIOl  DC 
//CO.FTlCFtOt  DO 
//CO.FTISFOOI  DO 
//6O.FT1GFX01  00 
FFCO.FTlGFgat  00 


SVSOUTn* 

OSNnHXSIl.NXTRIX.CXPLOOE.OXTX.OTSFnSHX 

0SM>N«S(i.n*mcrs.oxT*,oisF«<aLO,«ccp>  t 

• VOLUME*  tPPIVXTFiPcrXIN.SERnO^^OMI 

osn*nvsoi.smss.explooe.o*ti,oisp*smp 

DSN*NVS01.SHOP.EXPLOOE.O*TX,OISP*SM*t 

OSN*NVS01.OM«FL.NE.O«Tk,DISP*SHR 

OSM*NVS01.0n«PL.NM.O«T«,OISP*SHIt 

OSM*NV$ll.OM«Fii.PE.OXTk,OISP*SMR 

OSN*NVS01.On*Fii.PM.OXTft,OISP*SMP 


(ERROR  MESSAGES I 
(SRBS-SNOP  FILEI 
(MATRIX  FILE) 

(SMBS  FILE) 
(SHOP  FILEI 
(ONAF-NF) 
(OMAF-NMI 
(ONAF-PEI 
(OHAF-PM) 


5.1.3  PRDGRAM  INPUTS 


Card  inputs  are  made  using  unit  5.  Section  5. 1.3.1  shows  the 
format  for  the  input  cards. 

Unit  5 - Card  inputs  which  (1)  give  identifying  report 
information  and  file  options,  (2)  give  yards  to 
be  "exploded". 

The  following  additional  units  are  used  to  input  information  from 
disk  files  previously  created  by  other  programs: 

Unit  9 - Repair  and  Alterations  Matrix  File 

Unit  12  - Depot  Maintenance  Assignment  File,  Version  4 

(DMAF-4),  NE 

Unit  13  - Depot  Maintenance  Assignment  File,  Version  4 

{DMAF-4),  NW 

Unit  14  - Depot  Maintenance  Assignment  File,  Version  4 

(DMAF-4),  PE 

Unit  15  - Depot  Maintenance  Assignment  File,  Version  4 

{DMAF-4) , PW 

The  formats  for  these  files  are  given  in  Sections  5. 1.3. 2.  through 

5.1. 3. 3. 


5. 1.3.1  Unit  5 - Card  Inputs 


Identification  Card.  This  card  must  be  the  first  card  in  the  input 
deck. 


Variable  Name 

Description 

Field 

Format  | 

CATE (1-3) 

Date  (mo/dy/yr) 

1-12 

3A4  1 

t 

KIND 

Option  for  type  of  output 
files 

15 

Al 

1 

W - SWBS  only 

S - Shops  only 

B - Both  SWBS  and  Shops 

A - Neither 

i 

1 

1 

1 

00MMNT(l-5) 

Run  identification 

20-39 

5A4  ■ 

IBUGS 

Print  option  for  Shop  File 

78 

11  * 

IBUGW 

Print  option  for  SWBS  File 

79 

11 

IBUGE 

Print  option  for  SWBS-Shop 
Matrix  File 

80 

11  1 

1 

Yard  Cards.  These  cards  are  used  to  indicate  which  yards 

1 

1 

are  to  be  j 

"exploded"  amd  may 

be  omitted  if  no  SWBS-Shop  Matrix 

File  is  to 

be  created.  j 

Variable  Name 

Descr iption 

Field 

Format  i 

lYDSEL 

Name  of  yard  to  be  "exploded" 

1-5 

« 1 

lOPT 

Option  flag  for  type  of 
"explosion" 

8 

Al  i 

R - Repairs  mandays 

A - Alterations  mandays 

T - Total  of  repairs  and 
alterations  mandays 

Terminator  Card. 

Hiis  card  must  be  the  last  card 

I 

in  the  input  deck.  i 

Variable  Name 

Description 

Field 

Format 

LAST 

Terminator  of  input  data  - 
"LAST  " in  columns  1 
through  5 

1-5 

A5 

15 

5. 1.3. 2 Uhit  9 - Repair  and  Alterations  Matrix  File 


The  Repair  and  Alterations  Matrix  File  is  a random  access  file 
which  contains  both  repair  and  alterations  matrices.  Each  record  on  the 
file  contains  all  the  elements  of  one  matrix  and  is  accessed  by  the  matrix 
number.  The  first  1500  records  are  reserved  for  alterations  matrices  and 
the  next  1500  records  contain  repair  matrices.  Each  alteration  record  is 
organized  as  follows: 


Variable  Name 

Description 

Field 

Format* 

MATNOA 

Alterations  matrix  number 

Access  Key 

(14) 

MATALT{1,1) 

Alterations  matrix  entry 
for  SWBS  1 and  Shop 

06  (the  first  shop) 

1 

(F6.4) 

MATALT{2,1) 

Alterations  matrix  entry 

2 

(F6.4) 

• 

for  SWBS  2,  shop  06 

• 

• 

• 

• 

• 

MATALT(10,21) 

Each  repair  record 

• 

• 

Sum  of  all  alterations 
matrix  entries  (=1.0) 

is  organized  as  follows: 

• 

• 

210 

• 

• 

(F6.4) 

Variable  Name 

Description 

Field 

Format* 

MATNOR 

Repair  matrix  number 

Access  Key 

(14) 

MATREP(1,1) 

Repair  matrix  entry 

1 

(F6.4) 

• 

for  SWBS  1 and  shop  06 

• 

• 

• 

• 

• 

MATREP(10,21) 

• 

• 

Sum  of  all  repair  matrix 
entries 

• 

• 

210 

• 

• 

(F6.4) 

5 *The  format  is  given  for  reference  only.  Since  the  file  is  a random 
j access  file,  formats  are  not  used  in  reading  the  variables  from  the 
i file. 
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5. 1.3. 3 Units  12-15  - Depot  Maintenance  Assignnent  File,  Versiwi  4 (DMAF-4) 


! 


The  program  DMEHGE  (Volime  4)  s^)arates  DMAF-3  into  four  separate 
files  according  to  sector.  It  adds  a header  record  to  each  file  and  these 
files  represent  DMAF,  Version  4.  Ihey  are  defined  as: 

Depot  Maintenance  Assignment  File  (DMAF-4),  NE 
Depot  Maintenance  Assignment  File  {DMAF-4),  NW 
Depot  Maintenance  Assignment  File  (DMAF-4),  PE 
i Depot  Maintenance  Assignment  File  (DMAF-4),  IW 

Each  EMAF-4  file  contains  information  describing  all  depot  main- 
tenance ships  availabilities  scheduled  for  yard-work  at  both  Navy  and 
privately  owned  shipyards  during  the  selected  five-fiscal-year  period 
for  a given  sector.  Depot  maintenance  availabilities  are  those  avail- 
abilities with  a type  of  work  other  than  Fitting  Out  (PO),  Post  Shake- 
down  (PS),  or  New  Construction  (NC). 

Each  SQTii- annual  period  of  a fiscal  year  within  v^ich  an  availability 
falls  corresponds  to  a record  on  DMAF-4.  Note  that  there  may  be  more 
than  one  DMAF  record  for  any  particular  availability. 

Each  of  the  DMAF-4  files  is  sorted  in  ascending  order  by  the  fol- 
lowing parameters: 

• Yard 

• Ship  type 

• Hull  number 

• Availability  start  date  (year,  month,  day) 

• Fiscal  year  (this  record) 

• Period  (this  record) 
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S 

I 


J 


The  format  of  each  heacter  record  on  the  four  DMAP-4  files  is  as 


follows; 

Variable  Name 

Description 

Field 

Format 

OWN 

Yard  ownership  indicator 

1 

A1 

COAST 

Coast 

2 

A1 

lYEAR 

First  fiscal  year  of  LRPS 
projection 

3-4 

12 

IYARD{1-13) 

Array  of  yard  names  con- 
tained in  a given  sector 

6-70 

13A5 

Each  semi-annual 

period  of  an  availability  is 

described  by 

a record 

as  follows: 

Variable  Name 

Description 

Field 

Format 

lYD 

Yard 

1-5 

A5 

ISHULL 

Ship  type-hull  number 

13 

A8 

ISBQ 

Sequence  number 

14-17 

14 

lOONT 

continuation  indicator 

18 

A1 

ITYPWK 

Type  work 

19-21 

A3 

ISTRT 

Availability  start  date 
(mo/dy/yr) 

22-27 

16 

TEND 

Availability  end  date 
(mo/dy/yr) 

28-33 

16 

ISPEC 

Specialization  category 

34-36 

A3 

OWN 

Yard  ownership  indicator 

37 

A1 

COAST 

Coast 

38 

A1 

IFYR 

Fiscal  year  (this  record) 

39-40 

12 

IPERD 

Period  (this  record) 

41 

11 

IDAYS 

Production  shop  productive 
(PSP)  mandays  this  period 

42-48 

17 

ITDAYS 

Total  PSP  mandays 

49-55 

17 

MAINOR 

Repair  matrix  number 

56-59 

14 

MATNOA 

Alterations  matrix  number 

60-63 

14 

Variable  Name 

Descr iption 

Field 

Format 

IPEBCT 

Percent  of  PSP  mandays  for 
alter at  ions 

64-66 

13 

ICRV 

Labor  distribution 
histogram  nixnber 

67-68 

12 

IREC 

Record  number 

85-90 

16 

Figure  5.1-2  shows  the  sample  format  of  the  DMAF  file 


5.1.4  PROGRAM  CXJTPUTS 


5. 1.4.1  Unit  8 - SV®S-Shop  Matrix  File 


The  SWBS-Shop  Matrix  File  is  a binary  file 
only  as  a guide  to  the  size  of  the  variables. 

so  the  format  is  given 

Header  record.  The 

arrays  of  yards  and 

format  for  the  header  record 

their  options  are  dimensioned 

is  described 

for  13. 

1 

below.  The  j 

Variable  Name 

Description 

Position 

Format 

OWN 

Yard  ownership  indicator 

1 

(Ai)  i 

COAST 

Coast 

2 

(Al)  1 

1 

lYEAR 

First  fiscal  year  of  LRPS 
projection 

3 

(12)  ! 
1 

lYDSEC(l) 

Yard  name 

4 

(A5) 

lOPTS(l) 

Option  flag 

5 

(Al)  1 

IYDSEC(2) 

Yard  name 

6 

(A5)  ‘ 

IOPTS(2) 

Option  Flag 

7 

• 

(Al)  i 

I 

• 

• 

• 

IYDSEC(13) 

• 

• 

Yard  Name 

• 

• 

28 

• 

• 

(A5) 

iaPTS(13) 

Option  flag 

29 

(Al) 

Manday  Record.  There  is  one  Manday  Recx»rd  for  each  of  the  20  shops  for 
each  six-nx)nth  period  of  an  availability. 


Variable  Name 

Description 

Position 

Format 

ISHULL 

Slip  type-hull  number 

1 

(A8) 

ITYFWK 

Type  work 

2 

(A3) 

lYD 

Yard 

3 

(A5) 

IGROUP 

Group  number 

4 

(13) 

IFYR 

Fiscal  year  (this  record) 

5 

(12) 

OWN 

Yard  ownership  indicator 

6 

(Al) 

COAST 

Coast 

7 

(Al) 

IPERD 

Period  (this  record) 

8 

(ID 

lOONT 

Continuation  indicator 

9 

(Al) 

ISTRT 

Availability  start  date 
(ino/dy/yr) 

10 

(16) 

IFM) 

Availability  end  date 
(mo/dy/yr) 

11 

(16) 

ISPEC 

Specialization  category 

12 

(A3) 

VALUES (1-9) 

Mandays  for  SWBS  for 
this  Shop 

13-21 

(9F10.2) 

ISHOP 

Index  used  to  identify 
the  shop  number 

22 

(12) 

Figure  5.1-3  shews  an  example  of  a SWBS-Shop  Matrix  File. 


22 


5. 1.4. 2 unit  10  - SV®S  File 


The  SVJBS  File  prcxJuces  one  record  for  each  DMAF  record.  Each  record 
contains  the  total  repair  mandays  and  total  alteration  mandays  for  SV©S. 
There  are  no  header,  separator  or  trailer  records. 


Variable  Name 

Descr iption 

Position 

Format 

ISHULL 

Snip  type-hull  number 

1 

(A8) 

ITYPWK 

Type  Work 

2 

(A3) 

lYD 

Yard 

3 

(A5) 

IGBOUP 

Group  number 

4 

(13) 

IFYR 

Fiscal  year  (this  record) 

5 

(12) 

OWN 

Yard  ownership  indicator 

6 

(Al) 

COAST 

Coast 

7 

(Al) 

IPERD 

Period  (this  record) 

8 

(ID 

ICONT 

Continuation  indicator 

9 

(Al) 

ISTRT 

Availability  start  date 
(mo/dy/yr) 

10 

(16) 

lEND 

Availability  end  date 
(mo/dy/yr) 

11 

(16) 

ISPEC 

Specialization  category 

12 

(A3) 

V^VALI^d-'J) 

Ttotal  direct  repair  mandays 
for  SWBS 

13-21 

(9F10.2) 

WVALA(l-9) 

Total  direct  alteration 
mandays  for  SV®S 

22-30 

(9F10.2) 

MATREP(10,20) 

Fraction  of  total  direct 
repair  mandays  required 
for  "other  direct" 

31 

(F10.6) 

MATALT(10,20) 

Fraction  of  total  direct 
alterations  mandays  required 
for  "other  direct" 

32 

(F10.6) 
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5. 1.4. 3 Unit  11  - Shop  File 

The  Shop  File  is  created  for  Navy  yards  only  and  contains  the  total 
direct  repair  mandays  and  total  direct  alteration  mandays  for  shops. 


Variable  Name 

Description 

Position 

Format 

ISHULL 

Ship  type-hull  number 

1 

(A8) 

ITYPWK 

Type  work 

2 

(A3) 

lYD 

Yard 

3 

(A5) 

IGROUP 

Group  number 

4 

(13) 

IFYR 

Fiscal  year  (this  record) 

5 

(12) 

OWN 

Yard  ownership  indicator 

6 

(Al) 

COAST 

Coast 

7 

(Al) 

IPERD 

Period  (this  record) 

8 

(Al) 

ICO^^^ 

Continuation  indicator 

9 

(Al) 

ISTFT 

Availability  start  date 
(mo/dy/yr) 

10 

(16) 

lEND 

Availability  end  date 
(mo/dy/yr) 

11 

(16) 

ISPEC 

Specialization  category 

12 

(A3) 

SVALR(l-20) 

Ttotal  direct  repair  man- 
days for  each  of  the  20 
shops 

13-32 

(20F10.2) 

SVALA(l-20) 

Ttotal  direct  alterations 
mandays  for  each  of  the 

20  shops 

33-52 

(20F10.2) 

IDAYS 

PSP  mandays  for  this  period 

53 

(17) 

IPERCT 

Percent  of  PSP  mandays  for 
alterat ions 

54 

(13) 

OO  OOOOOOOOOOOfJOOOOOOOOOOOOOOnOOOOOOOOOOOOOOf) 


5.1.5  PROGRAM  LISTING 


•••••PROGRAM  XPtOOE< INPUT, OUTPUT fT»PE5*IMPUT,T»Pt6»0UTP0T,T APE 8tT»P€q, 
*•••1  TAPE10,TAPE11,TAPE12,TAPE13,TAPE1A,TAPE19) 


PROGRAMMER  JEAN  ST  LAUREMT  • OTNSROC 
MRITTEN  AUGUST  1976 


CODE  1863 


PROGRAM  XPLOOE  USES  0NAF6  AS  INPUT  AND  CREATES  A MBS  FILE 
AND  A SHOP  FILE 

THESE  FILES  GIVE  TOTAL  DIRECT  MANDATS  FOR  REPAIRS  AND  FOR  ALTS 
IN  ADDITION,  ONE  OR  MORE  YARDS  HAY  BE  EXPLODED 
THE  EXPLODED  FILES  CAN  BE  CREATED  FOR  ALTS,  FOR  REPAIRS 
OR  FOR  A TOTAL  OF  REPAIRS  AND  ALTS 
(BUT  NOT  ALL  THREE) 

THESE  OPTIONS  ARE  INPUT  AS 
A - ALTS,  ONLY 
R - REPAIRS,  ONLY 

T - TOTAL  OF  ALTS  AND  REPAIRS 

THE  OPTION  IS  INPUT  MITH  THE  NAME  OF  THE  TARO  TO  BE  EXPLODED 

A HEADER  CARO  CONTAINS  REPORT  IDENTIFICATION  INFORMATION 
AND  THE  TYPE  OF  FILES  REQUIRED 
INPUTS  FOR  THE  FILES  ARE 
N - MBS,  ONLY 
S - SHOP,  ONLY 
B - BOTH  MBS  ANO  SHOP 
BLANX  > NO  ADDITIONAL  FILES 

ASSIGNMENT  OF  FILES 


TAPES  - CAROS  - IstPUT 
TAPE6  - ERROR  PRINTOUTS  - OUTPUT 
TAPE8  - XPLOSION  FILE  - OUTPUT 
TAPES  - MATRIX  FILE  FROM  DEVICE  SET  - INPUT 
TAPEll  - MBS  FILE  - OUTPUT 
TAPEll  - SHOP  FILE  - OUTPUT 
DMAF  ASSIGNMENTS 
TAPE12  - OMAF  FOR  ME  - INPUT 

TAPE13  - DMAF  FOR  NM  - INPUT 

TAPEIN  - OMAF  FOR  PE  - INPUT 

TAPEIS  - OMAF  FOR  PM  - INPUT 


DIMENSION  ITDSELI20),  IYARD(13),  lOPTlEO), 

1 VALUES(9),C0MMNT(S),  HATALT ( 10 , 21) ,MATREP ( 1 0, El) 

DIMENSION  MVALRtS),  MVALAtS),  SVALRI20),  STALAIEB),  XVALRI9,20), 
1 XVALA(9,20),  XVAL(9),  0ATE(3),  ITOSECI20),  IOPTSI20) 

►•DIMENSION  ISEPI22) 


XPLO  30 
XPLO  60 
XPLO  *>S 
XPLO  SO 
XPLO  60 
XPLO  70 
XPLO  80 
XPLO  90 
XPLO  100 
XPLO  110 
XPLD  120 
XPLO  130 
XPLO  160 
XPLO  ISO 
XPLO  160 
XPLO  165 
XPLD  166 
XPLO  167 
XPLO  168 
XPLO  170 
XPLO  180 
XPLC  190 
XPLO  200 
XPLO  210 
XPLO  220 
XPLO  230 
XPLO  260 
XPLO  2S0 
XPLO  260 
XPLO  270 
XPLO  280 
XPLO  290 
XPLO  300 
XPLO  310 
XPLO  320 
XPLD  330 
XPLD  360 
XPLO  3S0 
XPLO  360 
XPLO  370 
XPLO  300 
XPLO  390 
XPLO  600 
XPLO  610 
••••  620 
XPLO  630 


C«»^**oiMENSION  INOEX(3001) 

REAL  NATREP,MATALT 

REALMS  ISHULL,  ITO,  I YARD,  lYOSEL,  ITOSEC,  lENOER,  lYOP 

REAL^O  JTARO 

REAL^O  IEM0ER/SH99999/ 

REAL^O  ISEPI22)722^SM99999/ 

DATA  IREP/IHR/,  lALT/lHA/,  ITOT/IHT/ 


••••  660 
XPLD  6 SO 
••••  660 
••••  66S 
••••  670 
••••  600 
XPLD  690 
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non  n oo  ooo  ooooo  o nonoooo  ooo 


OAT*  IHBS/IHM/,  JSHOP/tHS/t  IBOTH/lHO/,  IBLANK/IH  / 

0»T*  PRI/IHP/ 

•••DAT*  ICNDER/SHBBBBB/ 

•••OAT* 

••  OAT*  LAST/SHLAST  / 

REALMS  LAST/5HLAST  / 

•••DATA  (INOEXII),I>1,3000>  /3000»0/ 

HASS  STORAGE  CALL  ANO  MUST  BE  USED  NITH  COC  VERSION  OF  RONTRX 
•••CALL  OPENNSI9tINOFX,3001tOI 


INITIAL  CONDITIONS 
JTARO  X 0 
JJ  = 0 
JHRITE  = 0 
KMRITE  > 0 
LNRITE  * 0 
lUNIT  » 12 
lEOF  = 0 
ISMOP  * 0 
ITO  = 0 
00  2 I = 1,13 
•••2  lYAROd)  * 0 
2 IVAROCII  = 0.0 

READ  CARD  NITH  REPORT  tOENTIFICATION  INFORMATION 
KINO  IS  THE  INPUT  PARAMETER  FOR  TYPE  OF  FILES  REQUIRED 
(MBS,  SHOP,  BOTH,  OR  NONEI 

REAOlStlOO)  DATE, KINO,  ICOHMNT 1 I ) ,I«1,S1 , IBUGS,  IBUGM,  IBUGE 

100  F0RMAT(3A<),2X,A1,  AX.SAA,  38X,  3111 

SET  VALUE  OF  TVER  TO  DETERMINE  MHETHER  TO  CALCULATE  MBS  ONLY, 
SHOP  ONLY,  BOTH,  OR  NEITHER 
IVER  * 3 

IFIKINO.EO.IHBSI  IVER  » 1 
IF(KTNO.EO.JSHOP)  IVER  = 2 
IFCKINO.EO.IBOTHI  IVER  = 3 
IFCKINO.EO.IBLANKI  IVER  • <• 

ZERO  OUT  YARD  ARRAY  ANO  OPTION  ARRAY 
00  7 K X 1,20 
••••  lYOSELCKI  * 0 

lYDSELIK)  X 0.0 
IOPT(K»  * 0 
7 CONTINUE 

READ  CAROS  FOR  EACH  YARD  TO  BE  EXPLODED  AND  THE  OPTION 

00  10  K X 1,20 
KK  X K 

REAO(S,101»  lYOSELfKI,  IOPT(K> 

101  FORNAKAS,  2X,  All 
IFlITOSELtKI  .EQ.  LAST)  GO  TO  IS 

10  CONTINUE 

C SET  NUMBER  OF  YARDS  TO  BE  EXPLODED 

NYAROS  X KK 
GO  TO  20 

IS  NYAROS  X KK  - 1 


XPLO 

S00 

XPLD 

S10 

• ••• 

S20 

• ••• 

S30 

• ••• 

S3S 

• ••• 

SS6 

• ••« 

SA0 

XPLO 

SS0 

XPLO 

S60 

• ••X 

S70 

XPLO 

S00 

XPLO 

S0O 

XPLO 

G00 

XPLO 

610 

XPLO 

620 

XPLO 

630 

XPLO 

660 

XPLO 

6S0 

XPLO 

660 

XPLO 

670 

XPLO 

600 

XPLO 

690 

XPLO 

700 

• XXX 

710 

xxxx 

711 

XPLC 

720 

XPLO 

730 

XPLO 

760 

XPLO 

750 

XPLO 

760 

XPLO 

770 

XPLO 

700 

XPLO 

790 

XPLO 

000 

XPLO 

810 

XPLO 

820 

XPLO 

830 

XPLO 

860 

XPLO 

8S0 

XPLO 

860 

XPLO 

870 

XPLO 

880 

XPLO 

890 

xxxx 

900 

xxxx 

901 

XPLO 

910 

XPLO 

920 

XPLO 

930 

XPLO 

960 

XPLO 

9S0 

XPLO 

960 

XPLO 

970 

XPLO 

980 

XPLO 

990 

XPL 01010 

XPLO101O 

XPLO1020 

XPL  01 030 

XPLO10A0 

XPLD1OS0 
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RE«0  DHtF  HCAOCR  RECORD  tNO  RECORD  OF  ALL  4 S 
MHICH  FOLLONS  EACH  HEADER  RECORD 


21  READClUNIT.lOE)  ONN, COAST, I YEAR, (lYAROtKI ,K« 1, 13t 
tOZ  FORNATC2A1,  12,  t3CU,AS),  / I 
ONNP  ■ ONN 
COASTF  « COAST 


C IF  NO  TAROS  ARE  TO  BE  EXPLODED,  START  READING  ONAF 

IFINTAROS.EQ.O)  60  TO  AS 
DO  22  I > 1,2< 

€••••  ITOSECdl  » 0 

ITOSECCII  > 0.0 
lOPTSfll  * 0 
22  CONTINUE 


C CHECK  IF  ANY  OF  THE  REQUIRED  YARDS  ARE  IN  THIS  SECTOR 

JJ  a 0 

DO  30  I a 1,13 
DO  2S  J a 1,NYAR0S 

IFlITOSELfJ)  .HE.  lYAROdM  GO  TO  2S 

JJ  a JJ  * 1 
ITOSEC(JJ)  a ITOSELIJ) 
lOPTSlJJI  a lOPTUt 
2S  CONTINUE 
30  CONTINUE 

NTAROS  a nTAROS  - JJ 
C NRITE(G,SS7»  lYDSECIJJt,  IVARO(I) 

C SSr  FORNATIIH  , SHITOSEC  a , AS,  2X,  SHITARD  a , «S) 

C 

C ARE  ANT  TAROS  TO  BE  EXPLODED  IN  THIS  SECTOR 

IFIJJ.EQ.OI  GO  TO  AS 


MRITE  XPLOSION  FILE  HEADER  RECORD  ON  TAPES 


MRITEiOl  ONN, COAST,  lYEAR,  (ITOSECCII,  lOPTSlII ,Ial, 131 
DEBUG  PRINT  STATEHENT 
IFCIBUGE.NE.ll  GO  TO  AS 


HRITE(G,103I  ONN, COAST,  ITEAR, (IVOSEC III , lOPTS (II , lal, 131 
103  FORNATIIH  ,2A1,  IX,  12,  13’(1X,AS,1X,A1I  I 
AS  IFIRST  a 0 
AO  lYOP  a ITD 
C 

C READ  ONAF  RECORD 

SO  REAO(IUNIT,10A,ENOa2AOI  lYO,  ISMULL,  ISEQ,ICONT,  ITTPHK,  ISTRT, 

1 lENO,  ISPEC,  OMH,  COAST,  IFVR,  IPERO,  lOAYS,  ITOAYS,  NATNOR, 

2 NATNOA,  IPERCT,  XCRV,  IREC 

C**SB  READ(IUNIT,10AI  ITO,  ISHULL,  ISEQ,ICONT,ITYPNK, ISTRT, IEND,ISPEC, 
C*««*l  ONN, COAST, IFTR, IPERO, IOAYS,ITOATS, NATNOR, NATNOA, 

C»***2  IPERCT, ICRWfIREC 

tOA  FORNATIAS,  AS,  lA,  Al,  A3,  210,  A3,  2A1,  12,  II,  217,  2IA,  13, 

1 12,  lOX,  lOI 

C 

CaaaaaiFIEOFlIUNITI  .NE.OI  60  TO  2A0 
C 

IFIIFIRST.EQ.il  60  TO  SS 
IFIRST  a 1 
C 


XPL01060 
XPL 01070 
xPLDioao 
XPL01090 
XPLCllOO 
XPLOltlO 
XPL01120 
XPL 01130 
XPLOllAO 
XPLOllSO 
XPL01160 
XPL 01170 
••••1100 
••••1101 
XPLOllSO 
XPL01200 
XPL01210 
XPL01220 
XPLO1230 
XPL012AO 
XPL012SO 
XPLD1260 
XPL01270 
XPL 01200 
XPLO12S0 
XPL01300 
XPL  D1 310 
XPLD1320 
XPL0132S 
XPL 01 320 
XPL  01330 
XPLO13A0 
XPL013SO 
XPL  01 300 
XPL0137a 
XPLD13S0 
XPLO13S0 
XPLDIAOO 
XPLOIAIO 
XPLO1A20 
XPL01A30 
XPLOIAAO 
XPLDIASO 
XPLDIAOO 
XPLO1A70 
XPLDIAOO 
••••lASO 
••••ISOO 
••••ISIS 
••••1S20 
••••1S30 
••••ISAO 
XPLOISSO 
XPLOISOO 
XPL01S70 
••••ISOO 
XPLOISSO 
XPLOIOOO 
XPLOlOlO 
XPL01020 


on  oonooo  on  n no  no 


C CHECK  ON  MHETHER  TO  EXPLODE  THIS  TMO 

C**»*  JTKRO  ■ 0 

jrARO  a a.O 

IFtNTAROS.NE.I)  SO  TO  99 
00  52  I a 1,  NTAROS 

II  a I 

IF(ITO.EQ.ITOSECII> > CO  TO  53 

52  CONTINUE 
CO  TO  55 

53  JTARO  a ITOSEC(II) 

JOPT  a lOPTSdli 

C SET  »*LUE  OP  lOPT 

IFLAC  a 0 

IFtJOPT.EQ.IREP)  IFLXC  a i 
IFIJOPT.EQ.IALT)  IFLkC  a ; 

IFI JOPT.EQ.ITCTI  IFLAG  a 3 


ERROR  PRINTOUT  IF  THERE  IS  NO  VALUE  FOR  OPTION  IN  EXPLODE 
IFIIFLAG.EO.OI  CALL  lERROR (5, IFL AG, lOUNl, lOBL) 


CHECK  ON  HHETHER  TO  PROCESS  THIS  SECTOR 
55  IFCKINO.EQ.IBLANK  .ANO.  JJ  .EO.OI  GO  TO  50 


IFtirO.NE.IENOER)  GO  TO  5S 
IFIJTARO.NE.IYDPI  GO  TO  55 
NRITEC8)  (ISEP(I>,I«1,22) 
IFtIBUGE.NE.t)  CO  TO  55 
HRITE(6,555I  ( I SEP CI> , 1, 22) 
555  F0RHAT(22A5> 

GO  TO  55 


50  CALL  ROHTRX(NATREP,NATALT,HATNOR,HATNOA,IREC) 

••50  CALL  RONTRX(NArREP,NATALT,HATNOR,NATNOA,IREC,INOEXI 
PCT  a FLOATIIPERCT)  / 100. 


CHANGE  BLANKS  TO  ZEROS  IN  SHIP-HULL  BT  USING  FUNCTION  ICB2 
dSHULL  a ICBZ(ISHUIL) 


GROUP  NUNBER  IS  A NECESSARY  VARIABLE  FOR  THE  NBS  FILE 


IGROUP  a 0 

CALCULATE  REPAIR  HANOAYS  - OAVSR  AND  ALT  HANOATS  - OATSA 
SET  FRACTION  PSP  HANOAYS  TO  .8  IF  HATRIX  HAS  ALL  HORN  IN  OTHER 


CO  TO  62 
GO  TO  63 


PSPREP  a 1.  - HATREP<10,20) 

PSPALT  a 1.  . NATALT(10,20) 

IFI ABS (PSPREP)  .LE.  .00005) 

61  IFI ABS I PSPALT)  .LE.  .00005) 

GO  TO  65 

62  WRITE  16, 1081  HATNOR 

108  FORNATIIH  , 27HERROR  IN  REPAIR  HATRIX  NO.  1 
PSPREP  a .8 
GO  TO  61 

63  WRITE  16, 105)  HATNOA 

105  FORNATIIH  25HERR0R  IN  ALT  HATRIX  NO.  , 15) 
PSPALT  a .8 

65  OATSR  a (FLOAT (lOATS)^(l.-PCT))  / PSPREP 
DAYSA  a (FLOATIIOATS)  • PCT)  / PSPALT 


15) 


GO  TO  (60,70,60,80),  IVER 


XPL 01630 
••••1650 
••••1651 
XPL  01655 
XPL 01650 
RPL01651 
XPL01660 
XPL  01670 
XPLO1680 
XPLO1650 
XPL01700 
XPL  01710 
XPL 01720 
XPLD1730 
XPL  01750 
XPL01750 
XPLO1760 
XPL01770 
XPL01780 
XPL 01750 
XPL01800 
XPL01810 
XPL01820 
XPLO1830 
XPL 01850 
XPL 01850 
XPL01851 
XPLD1852 
XPL 01053 
XPLO1860 
XPL01870 
••••1880 
••••1850 
XPL01500 
XPLO1510 
XPL 01520 
••••1530 
KPL01550 
XPLO1550 
XPLO1560 
XPL01570 
XPLO1580 
XPL  01 581 
XPL01502 
XPL 01583 
XPL01505 
XPL 01 505 
XPL  01 586 
XPL 01 587 
XPL  01 588 
XPL  01585 
XPL  01 550 
XPL01551 
XPL01552 
XPL  01553 
XPL01555 
XPL 02000 
XPL 02010 
VPL02020 
XPL 02030 


1 
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rOR  MRS»  ONLY 

CONFUTE  TOTAL  DIRECT  RERtIR  NANOAVS  FOR  HRS  - HtfALR  AMO 
TOTAL  DIRECT  ALT  NANDAVS  FOR  MBS  • NVALA 
WRITE  ON  TAFEIO 
»•  DO  I » !•  0 

NVALRIII  > OAYSR  • NATREFII«2tl 
«9  HVALAdt  ■ OATSA  • NATALTdtUt 

MRITEdOl  lOMULL*  ITYFNK.IYOi  ICROUFtl^Rt  DNN,  COAST.  IFCRO. 

1 ICONT,  ISTRT,IEN0.ISFEC,(HYALRd)tI*lt^>*(R«*LAd>,I>1.0)t 
E NATREFdOtESI  • NATALTdB.EII 

OESUC  FRINT  STATENEMT 
IFdOUCM.NE.lt  GO  TO  At 
JNRITE  > JNRITE  * 1 
IFtJNRITE.CE.EOI  GO  TO  At 

MRITEtA.lOSdSNULL.ITTFMK.ITO.IGROUP.IFTR.  OMN,  COAST.  IFERO. 

1 ICONT.  ISTRT.IEN0.ISFEC.(HVALRd).I«l.O).<HVALAd).I>l.OI. 

2 NATREF(10.20>.  NATALT (10.201 

lOA  FORNATdH  . AO.  2X.  A2,  2X.  AS.  2X.  13.  2X,  12.  2X.  2A1.  2X.  II, 

1 2X,  Al,  2(2X,IAt.  2X,  A3,  / 9(F10.2.1XI  t SIFIO.E.IXI . FIO.A, 

2 2X,  FIO.AI 

AO  IFdVER.NE.3)  GO  TO  00 

FOR  SHOPS.  ONLY 

CONFUTE  TOTAL  DIRECT  REPAIR  NANOATS  FOR  SHOPS  > SVALR  AND 
TOTAL  DIRECT  ALT  HANOAYS  FOR  SHOPS  - SVALA 
WRITE  ON  TAPEll 

NO  SHOP  FILE  IS  CREATED  FOR  PRIVATE  TAROS 

70  IFfOHN  .ED.  PRI  ) GO  TO  OO 
DO  7S  I « 1,20 

SVALRdI  > OAYSR  • HATREPdO.II 
79  SVALAd>  > OATSA  • NATALTIlO.Ii 

NRITFIll)  ISHULL.ITVPMK.IYO,  IGROUP.IFTR,  OWN,  COAST,  IPERO, 

1 ICONT,  ISTRT.IENO.ISPEC,(SVALRd).I«1.20>.  (SVALA  dl . I«l. 201 , 

2 lOATS,  IPERCT 

DEBUG  PRINT  STATEHENT 
IFdBUCS.NE.ll  GO  TO  SO 
KNRITE  > KNRITE  * 1 
IF(KNRITE.GE.20I  GO  TO  80 

NRITE(A.10A>ISHULL.ITVPHK.IVD, IGROUP.IFTR,  ONN,  COAST,  IPERO. 

1 ICONT,  ISTRT.IENO.ISPEC,  (SVALRdI, I«l, 201,  (SVALA (I) , I«1.20l , 

2 lOAYS,  IPERCT 

too  FORNATdH  , AS.  2X,  A2,  2X.  AS,  2X.  13,  2X.  12,  2X,  2A1,  2X,  II. 

1 2X,  Al,  2(2X,I6),  2X,  AS,  / 10 (FIB. 2, 1X1 , / 10 (Ft  1.2, IX) , / 

2 10(F1B.2,1X> , / 10(F10.2,1X) , 17,  2X,  131 

SECTION  FOR  EXPLODING  A YARD 
SO  IFIJYARO  .NE.  lYO)  GO  TO  AS 
00  BS  K - 1,  S 
VALUES(X)  > 0. 

AS  CONTINUE 

WRITE  2EROEO  NATFRIAL  RECORD 

NRITE(SI  ISHULL,  ITYPWX.IYD,  IGROUP.IFTR,  ONN,  COAST,  IPERO, 

1 ICONT,  ISTRT,IEN0,ISPEC,(VALUES(K),K-1,9),ISH0P 


XPID20A0 
XPLO20S0 
XPL02060 
XPL 02070 
XPLO20S0 
XPL02B40 
XPL02100 
XPL 02110 
XPL 02120 
XPL 02130 
XPL 021 AO 
XPL021SO 
XPLO2160 
XPL 02170 
XPL 02180 
XPL02190 
XPL 02200 
XPLO2210 
XPLO2220 
XPL  02230 
XPLO22A0 
XPL022S0 
XPL 02280 
XPL 02270 
XPL 02280 
XPL 02290 
XPL02300 
XPL 02310 
XPL 02 320 
XPL  02330 
XPL02SAO 
XPL 02390 
XPLD238B 
XPL02370 
XPL 02300 
XPL02390 
RPLO2A00 
XPLO2A10 
XPLO2A20 
XPL02A30 
XPL02AA0 
XPL02A90 
XPLO2A60 
RPLO2A70 
XPL02ASO 
XPLO2A90 
XPL02SOO 
XPL02S10 
XPLO2S20 
XPLD2S30 
XPL02SAO 
XPL02SSO 
XPLO2S60 
XPLO2S70 
XPL02SSO 
XPLO2S90 
XPL 02600 
XPL 02610 
XPL02620 
XPLO2630 
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DEBUG  PRINT  STRTEHENT 
IFCIBUGE.NE.ll  GO  TO  »T 
LHRITE  » LNRITE  ♦ 1 
IPtLHRITC.GE.SI  GO  TO  ST 

HRITE(6f lOrilSHULLfITTPHKtITOtIGROUPtIFTRf  OMN,  COAST,  IPCRO, 

1 ICONT,  ISTRT,IENO,ISPEC,(V«LUESIKI •K>1,S>,ISH0P 

Sr  00  220  III  a 1,  20 
00  95  II  a 1,5 
IPIIFLAG.EQ.2I  GO  TO  50 
XVkLR(II,IIII  a DAVSR  « H«TREP(II,III) 

IF( IFLAG.EQ.il  GO  TO  55 
50  X«ALA(II,II1I  a OAYSA  • HAT ALT ( I I, It I) 

55  CONTINUE 

00  215  II  a 1,9 

60  TO  (200,205,2101,  IFLAG 

CONFUTE  REPAIRS  ONLY 
200  XVALdll  a XVALRdliltll 
GO  TO  215 

CONFUTE  ALTS  ONLY 
205  XVALCII)  a XVALAdI,III> 

GO  TO  215 

CONFUTE  TOTAL  OF  REPAIRS  AND  ALTS 
210  XFALdI)  a XVAlRdI,IIII  » XVALAdI,IIII 
215  CONTINUE 

NRITE(S)  ISHULL,  ITYPHK,IY0,  IGROUP,IFYR,  ONN,  COAST,  tPERO, 

1 ICONT,  ISTRT,IEN0,ISPEC,(XVAL(K),Kai,5l,IIt 

DEBUG  PRINT  STATEHENT 
IFdauGE.NE.il  GO  TO  220 
IF(LHRITE.GE.5I  GO  TO  220 

NRITE(6,107}ISHULL,ITYPNK,ITO,IGROUP,IFVR,  ONN,  COAST,  IPERD, 

1 ICONT,  ISTRT,IENO,ISPEC, (XVAL(KI ,Kai,5l ,ItI 
107  FORNATdH  , AS,  IX,  A2,  IX,  A5,  IX,  13,  IX,  12,  IX,  2A1,  IX,  II, 
1 IX, A1,1X,IG,1X,I6,  IX, A3,1X,5F8.2,1X,  121 
220  CONTINUE 
GO  70  50 

INCRENENT  UNIT  NUNBER  FOR  THE  NEXT  SECTOR  OF  ONAF 
2A0  lUNIT  a lUNIT  » 1 

CALL  IERROR(2,ONNP,COASTP,IT0l 
lEOF  X IeoF  ♦ 1 

IF  ALL  A ONAF  FILES  HAVE  BEEN  READ,  STOP 
IFdE0F.6E.AI  STOP 
60  TO  20 
ENO 


XPL026AO 
RPLO2650 
XPL02660 
XPL 02670 
XPL026SO 
XPL 02650 
XPLO2700 
XPL  02 710 
XPL 02 720 
XPL02730 
XPLO27A0 
XPL 02750 
XPL 02760 
XPL 02770 
XPIO2780 
XPL 02750 
XPL02800 
XPL 02810 
XPL02820 
XPL 028 30 
XPL028AO 
XPLO2850 
XPL 02860 
XPLO2870 
XPL02800 
XPLD2850 
XPL02580 
XPL 02510 
XPL02520 
XPL  02  530 
XPL025AO 
XPL 02550 
XPL 02560 
XPLO2570 
XPL 02580 
XPL 02550 
XPL03000 
XPLD3010 
XPL 03020 
XPL03030 
XPLO30AO 
XPL03850 
XPL03060 
XPL03070 
XPLO3080 
XPLO3085 
XPL 03050 
XPL03100 
XPLO3110 
XPL03115 
XPL 03116 
XPLO3120 
XPL03130 
XPLD31A0 


30 
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SUBROUTINE  IERR0R(N,I0UHNV,I0UN1,I0BLI 

lERR 

10 

lERR 

11 

SUBROUTINE  lERROR  IS  ENTERED  NITH  «N  ERROR  CODE  ONO 

lERR 

12 

THE  CORRESPONDING  ERROR  MESSAGE  IS  MRITTEN 

lERR 

13 

lERR 

lA 

REAL«0  IDBL 

•••• 

20 

GO  TO  110.20, 30f AO),  N 

lERR 

30 

10 

NRITE(6,100)  lOUNNV 

lERR 

AO 

lOUNNV  • -1 

lERR 

90 

RETURN 

I ERR 

GO 

20 

HRITEIG.lOll  IDUNNT.IDUNl 

lERR 

TO 

RETURN 

lERR 

SO 

30 

NRITE{G,102>  IDUNNV 

lERR 

90 

lOUNNY  > -1 

lERR 

100 

RETURN 

IEk*R 

110 

40 

NRITEf6,103) 

lER*' 

120 

lOUNNT  > 3 

lERR 

130 

RETURN 

lERR 

lAO 

100 

FORNATdH  , 33H  •••  ALT  MATRIX  FOR  RECORD  NUMBER,  IX,  19,  2X, 

lERR 

190 

1 19H  DOES  NOT  EXIS1  •••) 

lERR 

199 

101 

FORMAT (IH  , SIM***  EOF  ENCOUNTERED  ON  DNAF  IN  ,2A1,  AM  •**  ) 

lERR 

IGO 

102 

FORMAT (36H  ***  REPAIR  MATRIX  FOR  RECORD  NUMBER,  19, 2X, 

lERR 

ITO 

1 19M  DOES  NOT  EXIST  ***) 

I ERR 

180 

103 

FORNATIIH  , A9HN0  VALUE  FOR  EXPLOSION  OPTION  - TOTAL  ASSUMED  ) 

lERR 

190 

END 

lERR 

200 
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^•••••SUBROUTINE  ROHTR»(N«TREP*N«r«LT,NftTNOR»N«TNOB»IRECt INDEX) 
SUBROUTINE  ROHTRXIN«TREP,N«TALT ,N«TNORtHBTNOBtIRCC) 

SUBROUTINE  RONTRX  READS  TNE  RANOON  ACCESS  FILE  OF  MATRICES 
IT  IS  ENTERED  NITH  A REPAIR  AND  AN  ALT  NATRIX  HUMBER  AND 
RETURNS  THE  2 MATRICES 

AN  ILLEGAL  NATRIX  NUMBER  OR  A NATRIX  NUMBER  > I 
HILL  PRODUCE  A MATRIX  OF  ALL  ZEROS 

DIMENSION  NATALT(10(Ztt  tMATREPt 10,211 
DEFINE  FILE  4(3000, SAD, L.IASSCI 

DIMENSION  NATALT(10,21> ,NATRCP(10,21I ,INOEX(3001I 
REAL  NATREP,  MATALT 

IFCNATNOR.LE.ISOB.  .OR.  MATNOR.GT.  3000)  GO  TO  20 
IF( INDEX (NATNOR)  .EQ.  01  GO  TO  20 


•••••call  re AONS (4, NATREP, 210, NATNOR) 
REAO(4aHATNOR,CRR*20)  NATREP 
4 IFINATNOA.LE. 0.  .OR.  NATNOA.GE.  1400.)  GO  TO  30 

•••••IFIINOEX(NATNOA)  .EQ.  01  GO  TO  30 


READ(48NATNOA,ERR«30)  NATALT 
C^^,^^CALL  REAONS(4,NATALT,210,NATNOA) 

GO  TO  AO 

20  CALL  IERROR(3,IREC,IDUN1,IOBL) 

C IREC  IS  RETURNED  AS  A NEGATIVE  FROM  SUBROUTINE  lERROR 


IF( IREC.GE.O)  GO  TO  4 
DO  2A  II  « 1,21 
00  22  I « 1,10 
22  NATREP(I,III  > 0. 

2A  CONTINUE 
GO  TO  4 

30  CALL  IERROR(1,IREC,IOUN1,IOBLI 
C-  IREC  IS  RETURNED  AS  A NEGATIVE  FROM  SUBROUTINE  lERROR 

IF( IREC.GE.O!  GO  TO  AO 
00  3A  II  > 1,21 
00  32  I • 1,10 
32  MATALT(I,II)  < 0. 

3A  CONTINUE 
AO  RETURN 
END 


RDNX 
RDNX 
RDNX 
RDNX 
RDNX 
RDNX 
RDNX 
•••• 
• ••• 


18 

20 

21 

22 

23 
2A 

24 
26 
22 
3B 
AO 


••••  SQ 

RDNX  60 

••••  BO 
RDNX  40 
••••  lao 
RDNX  110 
••••  120 
••••  ISO 

••••  ISO 

RDNX  160 
••••  120 
RONX  100 
••••  ISO 
••••  200 
RONX  210 
RONX  220 
RONX  230 
RONX  ZAO 
RDNX  240 
RONX  260 
RONX  220 
RONX  200 
RDNX  240 
RONX  300 
RDNX  310 
RONX  320 
RONX  330 
RDNX  lAO 
RONX  340 
RONX  360 
RONX  320 
RONX  300 
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5.1.6  PROGRAM  GLOSSARY 


Main  Program 

COAST 

COASTP 

COMMNT(5) 

DATE(3) 

DAYSA 

DAYSR 

I 

lALT 

IBLANK 

IBOTH 

IBUGE 

IBUGS 


IBUGW 


ICONT 

ICRV 

IDAYS 


IDBL 

IDUMl 

lEND 

TENDER 

lEOF 

IFIRST 


I 

i 

i 

f 

1 

i 

I 

I 

LOCAL  VARIABLES  i 


Coast  (east  or  west).  j 

Coast  (of  previous  record). 

Array  of  report  identification  information.  i 

Array  containing  the  date  of  the  run. 

Alteration  mandays. 

Repair  mandays. 

DO-loop  index. 

Variable  containing  the  character  "A". 

One-character  blank  space. 

Variable  containing  the  character  "B". 

Input  variable;  set  to  "1"  if  intermediate  printout 
of  SWBS-Shop  Matrix  File  is  desired;  otherwise  set 
to  "0”. 

Input  variable;  set  to  "1"  if  intermediate  printout 
of  Shop  File  is  desired;  otherwise  set  to  "0". 

Input  variable;  set  to  "1"  if  intermediate  printout 
of  SWBS  File  is  desired;  otherwise  set  to  "0". 

Continuation  indicator. 

Labor  distribution  histogram  number. 

Production  shop  productive  (PSP)  mandays  for  this 
period. 

Double  precision  argument  used  to  transfer  yard 
names  to  subroutine  TERROR. 

Dummy  variable  used  as  an  argument  in  subroutine 
TERROR. 

Availability  end  date  (mo/dy/yr). 

Variable  containing  the  characters  "99999". 

Counter  used  to  determine  number  of  DMAF-4  files 
read. 

Flag  set  to  "1"  after  reading  first  record  of  a sec- 
tor; otherwise  set  to  "0". 
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Main  Program  (Continued) 


IFLfiG 


IFYP 

IGROUP 

II 

III 

IOPT(20) 

IOPTS(20) 

IPERCT 
IPERD 
IRBC 
I REP 
ISEP(22) 

ISEO 

ISHOP 

ISHIILL 

ISPEC 

ISTRT 

ITDAYS 

ITOT 

ITYPWK 

lUNIT 

IVER 


IVBS 


Flag  viiich,  when  set  to  "1",  indicates  that  repairs 
are  to  be  processed;  when  set  to  "2",  indicates 
that  alterations  are  to  be  processed;  when  set  to 
"3",  indicates  that  the  total  of  repairs  and  cLltera- 
tions  are  to  be  processed  for  the  SWBS-Shop  Matrix 
File. 

Fiscal  year  for  this  record. 

Group  nunber. 

Subscript  designating  specific  SWBS  values. 

Subscript  designating  specific  Shop  values. 

Array  of  options  for  creating  SWBS-Shop  Matrix  File 
for  all  yards. 

Array  of  options  for  creating  SWBS-Shop  Matrix  File 
for  all  yards  in  a given  sector. 

Percent  of  PSP  mandays  for  alterations. 

Period  (this  record). 

DMAF  record  number. 

Variable  containing  the  character  "R". 

Array  of  all  "9's"  used  as  a separator  record  on 
the  SWBS-Shop  Matrix  File. 

Sequence  number. 

Index  used  to  identify  the  shop  numbers. 

Ship  type  and  hull  nunber,  read  as  a single  variable 
from  DMAF. 

Specialization  category. 

Availability  start  date  (mo/dy/yr). 

Total  PSP  mandays. 

Variable  containing  the  character  "T". 

Type  work. 

Variable  used  for  the  unit  number  of  the  four  DMAF-4 
Files. 

Flag  controlling  the  options  for  creating  files.  When 
set  to  "1",  create  SWBS  File;  when  set  to  "2",  create 
Shop  File;  when  set  to  "3",  create  both  SWBS  and  Shop 
Files;  when  set  to  "4",  don't  create  either  file. 

Variable  containing  the  character  "W". 


Main  Program  (Continued) 


IYARD(13) 

lYD 

lYDP 

IYDSEX:(20) 

IYDSEL(20) 

lYEAP 

J 

JJ 

JSHOP 

JWRITE 

K 

KIND 

KK 

KWPITE 

LWPITE 

MATALT(10,21) 

MATNOA 

MAm» 

MATREP(10,21) 

NYAPDS 

OWN 

OWNP 

POP 

PPI 

SVALA(20) 

SVAIJR(20) 


Array  containing  a list  of  shipyards  appearing  on  the 
DMAF-4  File  currently  being  processed. 

Yard  name. 

Yard  name  (of  previous  record). 

Array  containing  a list  of  yards  to  be  "exploded"  for 
the  current  sector. 

Array  containing  a list  of  all  yards  to  be  "exploded". 
First  calendar  year  on  EMAF. 

DO-loop  index. 

Counter  used  to  determine  the  number  of  yards  required 
for  each  sector. 

Variable  containing  the  character  "S". 

Variable  which  controls  the  number  of  lines  of  inter- 
mediate output  of  the  SWBS  File. 

DO-loop  index. 

Variable  which  controls  the  output  files  required  - 
SWBS,  Shop,  both,  or  none. 

Counter  used  to  determine  the  total  number  of  yards  to 
be  processed. 

Variable  which  controls  the  number  of  lines  of  inter- 
mediate output  of  the  Shop  File. 

Variable  which  controls  the  number  of  lines  of  inter- 
mediate output  of  the  SWBS-Shop  Matrix  File. 

Alteration  matrix  values;  the  first  subscript  refers 
to  the  SWBS  and  the  second  to  the  shops. 

Alterations  matrix  number. 

Repair  matrix  number. 

Repair  matrix  values;  the  first  subscript  refers  to 
the  SWBS  and  the  second  to  the  shops. 

Number  of  yards  to  be  processed. 

Yard  ownership  indicator. 

Yard  ownership  indicator  (of  previous  record). 

Equals  IPERCT. 

100 

Variable  containing  the  character  "P". 

Array  of  total  direct  alterations  mandays  for  shops. 
Array  of  total  direct  repair  mandays  for  shops. 
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VALUESO) 

Array  of  duimy  material  factors  for  each  of  the  nine 
single-digit  SWBS  eleinents. 

WVALAO) 

Array  of  total  direct  alterations  mandays  for  each 
of  the  nine  SWBS  elements. 

WVALR(9) 

Array  of  total  direct  repair  mandays  for  each  of  the 
nine  SWBS  elements. 

XVAL(9) 

Array  of  mandays  for  repairs,  alterations,  or  total 
of  repairs  and  alterations  for  each  of  the  nine 
SWBS  elanents. 

XVALA(9,20) 

Array  of  alterations  mandays;  the  first  subscript 
refers  to  the  SWBS  and  the  second  to  the  shop. 

XVALP(9,20) 

Array  of  repair  mandays  where  the  first  subscript 
refers  to  the  SWBS  and  the  second  to  the  shop. 

Subroutine  IFRPOP 

IDUMMY 

Dummy  argument  used  to  transfer  information  for  error 
messages. 

IDUMl 

Dummy  argument  used  to  transfer  additional  information 
for  error  messages. 

N 

Error  number. 

Subroutine  RDMTRX 

I 

DO-loop  index. 

IDUMl 

Dummy  argument  in  subroutine  lERROR. 

II 

DO-loop  index. 

IREC 

Flag  set  to  "-1"  v^en  a repair  or  alterations  matrix 
is  to  contain  all  zeros;  otherwise,  it  is  the  DMAF-4 
record  number. 

MATALT(10,21) 

Alterations  matrix  values;  the  first  subscript  refers 
to  the  SWBS  and  the  second  to  the  shops. 

MATNOA 

Alterations  matrix  number. 

MATNOR 

Repair  matrix  number. 

MATREP( 10,21) 

Repair  matrix  values;  the  first  subscript  refers  to 
the  SWBS  and  the  second  to  the  shops. 
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5.1.7  SAMPLE  RUN 


Ttie  card  input  (unit  5)  for  the  sample  run  reouested  that  both  a 
SWBS  File  and  a Shop  File  be  created  by  program  XPLODE.  The  debug  print 
flags  were  set  to  produce  partial  output  of  the  files,  and  Norfolk  was 
selected  as  the  yard  to  be  "exploded".  A SWBS-Shop  Matrix  File  was 
created  for  the  total  of  repair  and  alterations  mandays.  Input  files 
required  by  program  XPLODE  were  the  Repair  and  Alterations  Matrix  File  and 
the  Depot  Maintenance  Assignment  Files,  Version  4 (DMAF-4).  The  Matrix 
File  (unit  9),  created  by  programs  REPGEN  and  ALTX5FN,  is  a randan  access 
file  and  cannot  be  readily  listed.  Therefore  a utility  program  was 
written  to  read  any  desired  matrix  and  write  it  in  a readable  format. 
Three  repair  matrices  and  three  alterations  matrices  were  generated.  The 
DMAF-4  (units  12-15)  used  as  input  to  program  XPLODE  for  the  sample  run 
was  separated  into  four  individual  files  according  to  sector.  Each  file 
contained  a header  record  and  a separator  record  of  all  9's  between 
yards . 

The  basic  output  of  program  XPLODE  included  a SWBS-Shop  Matrix  File, 
a SWBS  File  and  a Shop  File.  These  files  were  used  by  the  Report  Genera- 
tor programs  to  produce  summary  reports.  Small  portions  of  each  file  were 
printed  for  debugging  purposes  and  samples  of  each  file  are  shown  on 
pages  45  thru  47. 

For  each  record  on  DMAF,  the  SWBS-Shop  Matrix  File  (unit  8)  contains 
a record  reserved  for  material  costs  and  one  record  of  SWBS  data  for  each 
of  the  20  shops.  The  sample  output  shows  a header  record  for  Norfolk  and 
data  for  two  DMAF  records. 

The  sample  SWBS  File  (unit  10)  shows  15  data  records.  Each  record 
was  printed  on  three  lines  for  ease  of  reading.  The  first  line  contains 
identifying  information  from  DMAF.  The  second  line  gives  the  9 total 
direct  repair  mandays  for  SWBS,  and  the  third  line  gives  the  9 total 
direct  alterations  mandays  for  SWBS  and  the  fraction  of  total  direct 
mandays  required  for  other  direct  for  (repairs  and  for  alterations). 
There  were  no  header  or  separator  records. 

The  semple  Shop  File  (unit  11)  shows  10  data  records.  Each  of  these 
records  was  printed  on  five  lines.  The  first  line  contains  identifying 
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information  from  EMAF.  Hie  second  and  third  lines  give  the  total  direct 
repair  mandays  for  each  of  the  20  shops  and  the  fourth  and  fifth  lines 
give  the  total  direct  alterations  mandays  for  each  of  the  20  shops,  plus 
two  other  values  from  OMAF.  Itiese  are  the  production  shop  productive  (PSP) 
mandays  for  that  record  and  the  percent  of  PSP  mandays  for  alterations. 
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Unit 


5 - Card  Inputs 


08/29/77  B NORFOLK  DATA  111 
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1 
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Unit  10  - SWBS  File 


Unit  11  - Shop  File 


INITIAL  DISTRIBUTION 


Copies 

3 NAVSEA  070T,  Mr.  L.  Rosenthal 

3 NAVSEA  0713,  Mr.  P.  Joosten 

2 DLSIE 

12  DDC 


CENTER  DISTRIBUTION 


Copies 

Code 

1 

1809.3 

1 

187 

M.  Zubkoff 

15 

187 

J.  St.  Laurent 

1 

187 

M.  Lamatrice 

1 

187 

L.  Lamatrice 

10 

5214.1 

Reports  Distribution 

1 

522.1 

Library(C) 

1 

522.2 

Library(A) 

- ^ ■ ■■■III  M^mmrnmmrn  i , 

IfSCEDiNO  PAOB  BUMUIOT  fUMB) 
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